home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 November / Ahoy_Magazine_86-11_1986_Double_L.d64 / Rep. Comp. 4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  284b  |  12 lines
  1. 0 print"[147][144]":poke53280,6:poke53281,1
  2. 1 print" commodares....repeated compression #4 ":print:print
  3. 2 rem   repeated compression
  4. 3 rem solution by
  5. 4 rem   jim speers
  6. 5 rem
  7. 10 input"enter text";x$:p$=left$(x$,1)
  8. 20 fori=2tolen(x$):ifmid$(x$,i,1)=mid$(x$,i-1,1)then40
  9. 25 ifmid$(x$,i,1)="/"then40
  10. 30 p$=p$+mid$(x$,i,1)
  11. 40 next i:print p$
  12.